If you georeference your image using AllMaps, you can use it as a background image for a leaflet map.
This example uses the following packages
library(tidyverse)
library(sf)
library(leaflet)
library(here)
If you follow the process in the AllMaps tutorial, you’ll end up with a link to a url
template. You can use this as an argument in the the
addTiles() function for a leaflet map.
leaflet() %>%
addTiles(urlTemplate = "https://allmaps.xyz/maps/ad0210f48b2636b9/{z}/{x}/{y}.png") %>%
setView(lng = -71.052164, lat = 42.360081, zoom = 15)
Now I’ll load a layer of polygons that shows the areas of Boston that would be underwater at high tide in the event of a 36-inch rise in sea level (which could happen in the 2070s).
hi_tide_36_inch <- here("a3-files",
"Examples",
"Climate_Ready_Boston_Sea_Level_Rise_Inundation.geojson") %>%
st_read()
And I can display that layer on the top of the map tiles from my historic map.
leaflet() %>%
addTiles(urlTemplate = "https://allmaps.xyz/maps/ad0210f48b2636b9/{z}/{x}/{y}.png") %>%
addPolygons(data = hi_tide_36_inch,
weight = 1) %>%
setView(lng = -71.052164, lat = 42.360081, zoom = 15)